/*

Samara Klar BR70
Proposal title: Untangling a Dislike for the Opposing Party from a Dislike of Parties

HYPOTHESES

Stated-Hyp 1: While some Americans have become more polarized, many people dislike partisanship in general more than they dislike the opposing party.

	Test-Hyp 1: Participants in the frequent discussion condition will be more affectively polarized than participants in the control condition.
	Test-Hyp 2: Participants in the rare discussion condition will be less affectively polarized than participants in the control condition.
		
********************************************************************************

NOTES: 
	
1. The feeling thermometer DV could be coded as difference score or just the
outparty FT.
	
*/

clear all
use KlarB70.dta, clear

********************************************************************************

* RECODING

* experiment condition
	tab xtess197, mis
	tab xtess197, nolabel	
	gen condition = .
	replace condition = 0 if xtess197 == 1
	replace condition = 0 if xtess197 == 2
	replace condition = 1 if xtess197 == 3
	replace condition = 1 if xtess197 == 4
	replace condition = 2 if xtess197 == 5
	replace condition = 2 if xtess197 == 6
	label define conditionl 0 "Control Condition" 1 "Rare Discussion Condition" 2 "Frequent Discussion Condition"
	label values condition conditionl
	tab condition xtess197, mis
	
* DV
	
	gen affdem = .
	replace affdem = k01 if xtess197 == 1
	replace affdem = k03 if xtess197 == 2
	replace affdem = k05 if xtess197 == 3
	replace affdem = k07 if xtess197 == 4
	replace affdem = k09 if xtess197 == 5
	replace affdem = k11 if xtess197 == 6
	replace affdem = . if affdem == -1
	tab affdem, mis
	
	gen affrep = .
	replace affrep = k02 if xtess197 == 1
	replace affrep = k04 if xtess197 == 2
	replace affrep = k06 if xtess197 == 3
	replace affrep = k08 if xtess197 == 4
	replace affrep = k10 if xtess197 == 5
	replace affrep = k12 if xtess197 == 6
	replace affrep = . if affrep == -1
	tab affrep, mis

	gen affpol = abs(affdem - affrep)
	tab affpol, mis

********************************************************************************

* ANALYSIS

* Test-Hyp 1: Participants in the frequent discussion condition will be more affectively polarized than participants in the control condition.
	reg affpol i.condition if condition == 0 | condition == 2
	// no support for H1 (p = .000_W)
	tess 2.condition +, init(KlarB70)
	
* Test-Hyp 2: Participants in the rare discussion condition will be less affectively polarized than participants in the control condition.
	reg affpol i.condition if condition == 0 | condition == 1
	// no support for H2 (p = .000)
	tess 1.condition -
